Source data Preview
# souce file
TOP40 = read.csv('TOP40.csv')
# rhandsontable to preview tables
rhandsontable(TOP40,height = "30vh",
readOnly = TRUE,search = TRUE)%>%
hot_cols(columnSorting = TRUE,highlightCol = TRUE, highlightRow = TRUE,
manualColumnResize = T)